home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_402_DoMenuItem.File < prev    next >
Encoding:
Text File  |  1990-03-23  |  636 b   |  31 lines
  1. %if MenuItemName = New%
  2. %elsif MenuItemName = Open%
  3. %elsif MenuItemName = Close%
  4. %elsif MenuItemName = Save%
  5. %elsif MenuItemName = SaveAs%
  6. %elsif MenuItemName = Quit%
  7. %elsif MenuItemName = Revert%
  8.         {----------}
  9.         Procedure DoRevert;
  10.         var
  11.             fileName:        Str255;
  12.             ok:                boolean;
  13.         Begin
  14.             ok := true;
  15.             if cur^.dirty then begin
  16.                 GetWTitle (curWindow, fileName);
  17.                 ParamText (fileName, '', '', '');
  18.                 ok := Confirm (RevertID);
  19.             end; {if}
  20.             if ok then begin
  21.                 ok := ReadApplFile (cur^.fileNum);
  22.             end;
  23.             if ok then begin
  24.                 InvalRect (curWindow^.portRect);
  25.             end; {if}
  26.         End; {DoRevert}
  27.  
  28. %else%
  29.     %DoMenuItem%
  30. %end if%
  31.